home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassAdministrator1.3.cpt / Classroom Administrator / card_7780.txt < prev    next >
Text File  |  1988-04-18  |  5KB  |  234 lines
  1. -- card: 7780 from stack: in
  2. -- bmap block id: 7507
  3. -- flags: 0000
  4. -- background id: 7357
  5. -- name: GradesTemplate
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global teacher, report
  9.   enablemenu teacher, 0, true
  10.   enablemenu teacher, 2, false
  11.   enablemenu teacher, 3, false
  12.   enablemenu report, 0, true
  13.   enablemenu report, 3, false
  14. end opencard
  15.  
  16. on CloseCard
  17.   global teacher, report
  18.   enablemenu teacher, 0, true
  19.   repeat with x = 1 to 6
  20.     enablemenu report, x, true
  21.   end repeat
  22. end CloseCard
  23.  
  24.  
  25.  
  26.  
  27. -- part 12 (field)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=454 top=37 right=52 bottom=485
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Total Points
  39.  
  40.  
  41. -- part 13 (field)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=53 top=60 right=72 bottom=82
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 10
  50. -- style flags: 0
  51. -- line height: 13
  52. -- part name: Period
  53.  
  54.  
  55. -- part 14 (field)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=111 top=60 right=72 bottom=198
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 10
  64. -- style flags: 0
  65. -- line height: 13
  66. -- part name: Class
  67.  
  68.  
  69. -- part 26 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=18 top=0 right=22 bottom=45
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 2162 / 2162
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   go to first card
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 27 (button)
  89. -- low flags: 00
  90. -- high flags: 2000
  91. -- rect: left=48 top=0 right=19 bottom=73
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 15972 / 15972
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Attendance
  100. ----- HyperTalk script -----
  101. On MouseUp
  102.   put char 1 of word 1 of field "name" into temp
  103.   put temp & word 2 of field "name" into studentname
  104.   put studentname & "Attendance" into studentname
  105.   go to card studentname
  106. end MouseUp
  107.  
  108.  
  109. -- part 28 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=113 top=0 right=35 bottom=142
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 1004 / 1004
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Get Assignment
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   get selection
  124.   put it into cardname
  125.   go to card cardname of LessonPlan
  126. end mouseUp
  127.  
  128.  
  129.  
  130.  
  131. -- part 29 (button)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=74 top=0 right=25 bottom=113
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 1007 / 1007
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Print missing assignments
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.  
  146.   answer "What do you wish to print?" with "This card" or "Missing"
  147.   if it is "This card" then
  148.     open printing
  149.     print this card
  150.     close printing
  151.   else
  152.     put 1 into x
  153.     put the number of lines in field 1 into fieldlines
  154.     repeat until x > fieldlines
  155.       if line x of field 3 is empty then
  156.         put line x of field 1 into cardname
  157.         push this card
  158.         go to LessonPlan
  159.         go to card cardname
  160.         open printing
  161.         print this card
  162.         close printing
  163.         pop card
  164.       end if
  165.       add 1 to x
  166.     end repeat
  167.  
  168.     put 1 into x
  169.     put the number of lines in field 2 into fieldlines
  170.     repeat until x > fieldlines
  171.       if line x of field 4 is empty then
  172.         put line x of field 2 into cardname
  173.         push this card
  174.         go to LessonPlan
  175.         go to card cardname
  176.         open printing
  177.         print this card
  178.         close printing
  179.         pop card
  180.       end if
  181.       add 1 to x
  182.     end repeat
  183.   end if
  184. end mouseUp
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191. -- part 30 (button)
  192. -- low flags: 00
  193. -- high flags: 8003
  194. -- rect: left=383 top=1 right=21 bottom=502
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Student Profile
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   put char 1 of word 1 of field "Name" into temp
  206.   put temp & word 2 of field "Name" & "Profile" into cardname
  207.   visual effect iris close
  208.   go to card cardname
  209.  
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part contents for background part 58
  215. ----- text -----
  216.  
  217.  
  218.  
  219. -- part contents for background part 61
  220. ----- text -----
  221. 0
  222.  
  223. -- part contents for background part 62
  224. ----- text -----
  225. 0
  226.  
  227. -- part contents for card part 12
  228. ----- text -----
  229. 0
  230.  
  231. -- part contents for background part 56
  232. ----- text -----
  233.  
  234.